#!/usr/bin/perl

for ($id=0; $id<3; $id++) {

  # send the command
  $cmd = "java SendPkt -comm serial\@/dev/ttyUSB$id:telosb d6";
  print "$cmd\n";
  system("$cmd");
  
  $cmd = "java ListenLog -comm serial\@/dev/ttyUSB$id:telosb > $id.log &";
  print "$cmd\n";
  system("$cmd");
}


